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-- FontDefs.mesa; edited by Johnsson on September 15, 1977 2:13 PM 
DIRECTORY 

SegmentDefs: FROM "SegmentDefs"; 

FontDefs: DEFINITIONS ■ 
BEGIN 


CHARACTER. POINTER TO BitmapState] . 
CHARACTER, POINTER TO Bi tmapState] , 
CHARACTER] RETURNS [CARDINAL], 
CHARACTER] RETURNS [CARDINAL], 


BitmapState: TYPE - RECORD [ 
origin: POINTER, 
wordsPerLine, x, y: [0. .77777B]]; 

FontObject: TYPE = RECORD [ 

paintChar: PROCEDURE [FontHandle, 

clearChar: PROCEDURE [FontHandle, 

charWidth: PROCEDURE [FontHandle, 

charHeight: PROCEDURE [FontHandle 

close: PROCEDURE [FontHandle], 

destroy: PROCEDURE [FontHandle], 

lock: PROCEDURE [FontHandle] RETURNS [POINTER], 

unlock: PROCEDURE [FontHandle]]; 

FontHandle: TYPE = POINTER TO FontObject; 

CharWidth: PUBLIC PROCEDURE [font: FontHandle, char: CHARACTER] RETURNS [CARDINAL]; 
CharHeight: PUBLIC PROCEDURE [font: FontHandle, char: CHARACTER] RETURNS [CARDINAL]; 
CreateFont: PROCEDURE [SegmentDefs . FileSegmentHandle] RETURNS [FontHandle]; 

END. 


